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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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**F 1LE**1D**PASEOLN2 
PPPPPPPP AAAARA SSSSSSSS EEEEEEEEEE 000000 LL NN NN $$5555 
PPPPPPPP AAAAAA SSSSSSSS EEEEEEEEEE 000000 LL NN NN 
PP PP AA AA SS EE 00 oO LL NN NN 2 
PP PP AA AA SS EE 00 OO LL NN NN 
PP PP AA AA SS EE 00 OO LL NNNN NN 
PP PP AA AA SS EE 00 OO LL NNNN N 
PPPPPPPP AA aa SSSSSS EEEEEEEE 00 OO LL NN NN NN 3 
PPPPPPPP Aa Ab SSSSSS EEEEEEEE 00 OO LL NN NN NN 
PP AAAAAAAAAA SS EE 00 0O LL NN NN $$ 
PP AAAAAAA SS EE 00 OO LL NN NNNN 2 
PP AB SS EE 00 0O iL NN NN 22 
PP AA BA SS_ EE 00 0O LL NN NN $§ 
PP Ab AA SSSSSSSS EEEEEEEEEE 000000 LLLLLLLLLL NN NN $8 $§85555 
PP AA AA SSSSSSSS EEEEEEEEEE 000000 LLLLLLLLLL NN NN 2222222222 
LL I1111 SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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74 Page 1 PA: 
PASEOLN2.B32; 1 a), 

| 

| 


001 MODULE PASSEOLN2 ( ATITLE Angyire if end-of-Line’ 
8 pOENT = '1-001' ' File: PASEOLN2.B32 Edit: SBL1001 
004 BEGIN 


BAER ESESLLLLSI SESE EEE ESET TT TTT TPCT CCCP c ee Tree cece rece itis i tir i iis) 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
® 
® 
® 
© 
® 
* 
® 
* 
ie TRANSFERRED. ‘ 
* 
* 
* 
® 
t 
® 
® 
& 
& 
* 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: peppokat thn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: !* DIGITAL ASSUMES NO a bers, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


pejololeleleleloelelelololelelojlq) 


MIPIMIPINININY St SS 2 OOOO 


= 
WR =O OONAUE WN (OO OONAULS WN" OOODNOUS WN OOONO 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
See RRR ERE AERA AREA AEE 
' 


lee 
FACILITY: Pascal Language Support 


ABSTRACT: 
This procedure implements the Pascal EOLN procedure. It 


is not called directly from compiled code, but rather can 
be passed as a procedure by users. 


Sooooooooooooocoo°o°0oo OooOooooooooo 
etatatatatatatatatotatatetetatatotatetetetatas 


Ww 


AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 
1-001 = Original. SBL 1-April-1981 


' 

i 

i 

i 

i 

i 
i 
i 
ENVIRONMENT: User mode - AST reentrant | 
i 

i 

i 

i 
i 
ie 


NOW WN CO ODNAUES WN O OONO UE WD (OO DNAUE WN SOO ONOUE Wh 


Be Se Se Se Se Se Se Ge Se Ge Se Be SH Se Se Se Be Se Os os Ss Se Se Be Se Se Se Se Se Se GH Be Se Se Se Se Se Oe Se Ge Se SESH Se oe Bees 


BEBE EES BAMA NANI AIAN NONIPUNONORS 2 2 OS OO Oe 


: 49 048 1 
; 0 049 1 
3 1 bee 1 
3 ¢ 51 1 
5 052 #1 
; 54 055 «1 
; 117 (1 
; 28 118 #1 
: 7 119 1 
3 58 120 1 
: 8G S152 
$ 61 63 g 1 
3 6¢ 0124 1 
; § 0125 1 
: 664 0126 1 
; 65 0127 1 
; 66 0128 1 
; oF 0129 #1 
; 0130 1 
3 69 0131 +1 
; 70 0136 1 
a. 01 1 
ea. 0134 1 
be. 0135 1 
, B18 1 
; 75 0137 1 
3 76 0138 #1 
mee eg 0139 1 
; 7 0140 1 
3 79 0141 1 


PASSEOLN2 Inquire if end-of-Line 
100k boclarations 


XSBTTL ‘Declarations’ 
PROLOGUE DEFINITIONS: 


REQUIRE ‘RTLIN:PASPROLOG'; 


; TABLE OF CONTENTS: 


FORWARD ROUTIN 
PASSEOLN2; 
| MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
FIELDS: 
NONE 
OWN STORAGE: 
: NONE 


1984 01:31:43 AX-11 Blis 
7138e ? EPASRTL SRE 


2:51:26 


! Externals, Linkages, PSECTs, structures 


' Inquire if end-of-Line 


L 
PASSS$SIO_HANDLER (PFV_ADDR, UNWIND_ACT); 


'¢ 
! Set enable argument for PFV address. 


5 
PASSEOLNG [rauire if end-of-Line 18-Sep-1984 9}: 1:43 AX-11 tt V4.0-74 
1-001 PASSEOLN2 = Inquire if end-of-file 14-Sep-1984 12:51:26 PASRTL.SRCJPASEOLN2.B32;1 
; 1 148 1 ZSBTTL 'PASSEOLN2 - Inq ire if end-of-file' h 
: ¢ 145 1 GLOBAL ROUTINE PASS$EO ( ! Inquire if end-of-file 
; 144 1 PFV: REF SPASSPFV_FILE_VARIABLE ! File variable 
: 4 145 1 = 
; 5 148 1 
: § 147 1 S44 
; i 138 ! FUNCTIONAL DESCRIPTION: 
: 9 180 1! This procedure returns a boolean value TRUE if the given file 
: + ' 1 : } is at end-of-Line, FALSE otherwise. 
; ie } } CALLING SEQUENCE: 
; | 94 0155 1! Eoln.wv.v = PASSEOLN2 (PFV.mr.r) 
.- p1 28 . 3 
; 96 015 1 ! FORMAL PARAMETERS: 
o> oF 0158 1! 
; ww 0159 1! PFV - The Pascal File Variable (PFV) passed % reference. 
3 100 geo ! The structure of the PFV is defined in PASPFV.REQ. 
3; 6101 pi6¢ 1 ! IMPLICIT INPUTS: 
: 19 0165 1! 
3; 0164 1! NONE 
: 104 0165 1! 
3; 105 0166 1 ! IMPLICIT OUTPUTS: 
; 106 0167 1! 
3; 107 0168 1! NONE 
; 108 0169 1! 
; 109 0170 1 ! ROUTINE VALUE: 
; 6110 0171 1! : 
; + He 1! Boolean TRUE (1) if file is at end-of-file. | 
: We 0175 1! Boolean FALSE (0) if file is not at end-of-file. 
3 Wi 0174 1! 
3 (114 0175 1! SIDE EFFECTS: 
s 445 0176 1! ‘ 
: 11g gee : Resolves any lazy lookahead in progress, possibly opening the file. 
; («118 0179 1 ! SIGNALLED ERRORS: 
; 6119 0180 1! 
: 120 0181 1! FILNOTOPE - file not open : 
3; «121 piss 73 FILNOTTEX - file is not a textfile 
; \$¢ 0183 1! 
ig tei 
3 158 5188 BEGIN 
3 1¢6 0187 
; 127 0188 LOCAL 
: 128 0189 FCB: REF SPASSFCB_CONTROL_BLOCK,! File control block 
3 34 0190 RESULT, ' Function result 
; 130 0191 PFV_ADDR: VOLATILE, ' Enable argument 
: 13) O36 UNWIND_ACT: VOLATILE; ! Enable argument 
; 13 0194 ENABLE 
: «134 0195 
3 135 0196 
s 136 0197 
3; 137 0198 


Ad 

-_—n 
v 
> 


H 5 
ire if end-of-Lline 16-Sep-1984 01:31:4 
EOLN2 = Inquire if end-of-file e280 R= 384 O32 


le 
PFV_ADDR = PFV CPFVSR_PFV]; ! Set enable argument 


14 


Validate and lock PFV. 


3“ VAX=11 Bliss-32_v4.0-74 5 4 
1:36 EPASRTL SRESPASEULNNG 03951 wm o3i 


S 

»>sS 
“no 
wc 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 


14 
Set unwind action to unlock file. 


UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
i | 


! Call PASS$LOOK_AHEAD to resolve lazy lookahead. 


IF NOT .PFV CPFVS$V_VALIDJ 
PASSS$LOOK_AHEAD (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBI; FCB); 


4 
Verify that file is open. 


of “vl -PFV CPF VS$V_OPEN) ' Not open 
SPASS$SIO_ERROR (PAS$_FILNOTOPE,0); 

1+ 

Verify that this is a textfile 

IF NOT .FCB CFCBSV_TEXT) 
SPASSIO_ERROR (PAS$_FILNOTTEX,0); 


1+ | 
‘ Determine if EOLN | 
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. 


WN SO OONAVE UN $9 OONAUNE WN SO OBNAUES WN OODNAOUS WN OOM 


RESULT = .PFY CPFVS$V_EOLN); 


+ 
! Indicate successful completion 
Unlock file and return. 


ee I eee ie at oe REID SF EEE SSE 


Sette 


FCB CFCBSL_STATUS) = 0; 
PFv CPFVSVLOCK] = 0; 


RETURN .RESULT; 
END; ' End of routine PASSEOLN2 


SOOOOOSOCOOSOSOCOCSCOOSOOCOCOOOSCOOOSOSOOOOOCSOOOOCOOCOCOCOOCOOOOOOCOOOOOOOOOO OU 
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5 
PASSEOLN2 Inquire if end-of-Line rhese -1984 01:31:43 AX-11 Blis Pa 
et PA ASSEOLNZ - Inquire if end-of-file 12-808- 1382 oh: 1:26 PASRTL.SRC AeTpacebtio so “BS 31 = (33 
-TITLE PAS SSEOLNG Inquire if end-of-Line : 
IDENT \1-001\ : 
.EXTRN PASSEOLN2 PAS$$10_ HANDLER : 
*EXTRN PASSSVALIDAT ; 
-EXTRN PAS$$LOOK ANERD | : 
-EXTRN PASSSSIGNAL, PASSK_FILNOTOPE F 
-EXTRN PASSK. FILNOTTEX | : 
-FCSCT _PASSCODE,NOWRT, SHR, PIC,2 | : 
00cc 00000 .ENTRY PASSEOLN2, Save R2,R3,R6,R7 7 0143) : 
5E 04 £5 its SUBL2 4&4, 3 | : 
7E 54 0000 CLAL UNWIND_ACT 3 0186 | ; 
04 AE D4 00007 CLRL PFV_AD : : 
6D OO4E CF DE 90004 MOVAL 6$,~ (FP) : | ; 
56 04 AC dO O0000F MOVL PFV, R 3; 0201) : 
04 AE 56 DO 00013 MOVL R6, PFV_ADDR : : 
00000000G 00 16 00017 JSB PASSS$VALIDATE_PFV : 0207 : 
6E 01 DO 0001D MOVL UNWIND_ 3 0213 : 
06 06 Ad E8 44 BLBS (R6), 3: 0219 3 
00000000G 00 16 00024 JSB PASS$S$LOOK_AHEAD 3; 0221 3 
08 07 6 05 €0 O002A 1$: BBS #5, 7(R6), 2$ 3; 0227 3 
7E D4 000¢F CLRL -(SP) ; 0229 : 
7E 00G 8F 9A 00031 MOVZBL #PASS$K_FILNOTOPE, -(SP) ; : 
OA 11 00035 BRB 3 3 
OF FB <A? €E8 00037 2$: BLBS ~8(F CB), 4$ ; 0235 | : 
7E 04 00038 CLRL P) : 0237 3 
7E 006 8F 9A 0003D MOVZBL M#PASSK_FILNOTTEX, -<SP) ; | 
000000006 00 02 FB 00041 3$: CALLS #2, PASSS$SIGNAL : 
OF 11 00048 BRB 3 
50 06 Ab 01 03 EF OO04A 4$: EXTZV #3, #1, 6(R6), RESULT 3 0243 
D4 A? D4 00050 CLRL © 44 FCB) : 0250 
07 A6 80 8F 8A 00053 BICB2 #128, 7(R6) 3; 0251 
04 00058 RET 3; 0253 
50 D4 00059 5$: CLRL RO ; 0255 
04 00058 RET 3 
0000 0005C 6$: -WORD Save nothing ; 0186 
50 08 aC 00 B00 35 MOVL 8(AP), RO 3 
50 04 Ad 00 pn0e MOVL 4(RO), RO 3 
F8 AO OF 00066 PUSHAB UNWIND ACT ; 
FC Ag oF 90069 PUSHAB  PFV_ : 
9 DD 0006C PUSHL #2 : 
E bb 0006E PUSHL : 
7E 04 AC 7D 0007 mova 4(AP), -<SP) : 
000000006 00 03 FB Hi CALLS #3, PASS$SIO_HANDLER 3 
04 00078 RET F 
; Routine Size: 124 bytes, Routine Base: _PASS$CODE + 0000 


0589 ! <BLF /PAGE> 


3; Elapsed Time: 00:20.1 
3; Lines/CPU Min: 3277 

3 Lexemes/CPU-Min: 10966 

: pene | Used: 69 pages 

3 a 


; Compi tion Complete 
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PASSEOLN2 Inquire if end-of-Line 18-se 1984 01:31:43 AX-11 Bliss-32 V4.0-74 Page 6 
snOOt PASSEOL 2 - Inquire if end-of-file 14- 90P- 1 obec 9}: 1:26 PASRTL.SRCJPASEOLN2.B32;1 . (4) | 
; 198 0 1 END ! End of module PASSEOLN2 ; 
; 199 0388 1 2 : 
; 200 60 0 ELUDOM : 
; PSECT SUMMARY i 
; Name Bytes Attributes : 
: PASSCODE 124 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ‘ 
; Library Statistics ; 
cS. 228 aay: ey | le te Seen Symbols -------- Pages Processing | : 
3 File Total Loaded Percent Mapped Time : 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:00.9 : 
; ~$255$DUA28:CPASRTL.OBJIPAS SL1B.L32;1 427 91 21 33 00:00.4 | : 

3 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASEOLN2/0BJ=0BJ$:PASEOLN2 MSRC$:PASEOLN2/UPDATE=(ENH$:PASEOLN2) | : 
; Size: 124 code + 0 data bytes : 
; Run Time: 00:04.8 ‘ 


AH-BT13A-SE | DIG NT CORPORATION 
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